## This code creates Table A1.

# Table A1

library(stargazer)

data <- colonial_towns_shp

desc_table <- data[,c("replaced","neighbor_dist","longitude","latitude",
                      "altitude","slope_idx","soil_quality","river_dist","yangon_dist",
                      "houses","c_police","m_police","outpost","c_force","m_force",
                      "railway","post","telegraph","bazaar","f_revenue","hospital","school")]

stargazer(data.frame(desc_table@data),iqr=TRUE)
